perm filename Z.F4[P11,LCS] blob sn#590686 filedate 1981-05-28 generic text, type T, neo UTF8
00100		SUBROUTINE BOXX
00200		COMMON R2,JA /LIMIT/LIM,ITEM,L,I,IX
00300		1 /JCHAR/IXX,ISEMI,IBLA,IG,JED,KED,REDIT,RITEM 
00400		1 /XRN/RN(1) /DL/JX22 /PTR/KWDS(1) /DPY/ID(4000),MEDIT,IGO
00500		COMMON /RRJJ/RJJ2,RJJ(20),JJA /DPTR/JWDS(1)
00550		1 /YED/JYED,IBOX,RBOX
00600	
00700	429	IX=I
00800		MEDIT=KWDS(JX22)
00900		JY=RN(MEDIT)+2
01000		CALL LOOP(0,JY,1,I,MEDIT,RN)
01100		JJA=RN(I+1)
01200		JYED=JY-2
01300		L=I+2
01400		DO 422 K=1,11
01500		IF(K.GT.JYED)GO TO 423
01600		RJJ(K)=RN(L+K)
01700		GO TO 422
01800	423	RJJ(K)=0
01900	422	CONTINUE
02000		RJJ2=RN(L)
02100		IF(IGO.GT.0)GO TO 4231
02200	C  NO BOX WHEN IN GROUP EDIT ROUTINE
02300		RBOX=RJJ2
02400		IBOX=I
02500		CALL BOX(IBOX,RBOX)
02600	4231	ITEM=ITEM+1
02700	CC	MOVE DPTR-1(1)		;	ST2=WDS(ITEM)
02900		END